100 PRINT"[147]  ************************
105 [153]"  *                      *
110 PRINT"  *   BASIC LOADER FOR   *
115 [153]"  * SAD  SOUNDING  BACH  *
120 PRINT"  *                      *
125 [153]"  ************************
130 IFX<>0THEN167
145 :
150 FOR X= 49152 TO 49362
155 READ A: B= B+A
160 POKE X, A : NEXT X
167 SYS49152  : REM  __ PLAY THE MUSIC
168 GOTO60000 : REM  PLAY AGAIN?
170 REM   END
175 :
180 DATA 169,15,141,24,212,169
185 DATA 9,141,5,212,169,17
190 DATA 141,6,212,169,17,141
195 DATA 4,212,162,0,189,115
200 DATA 192,141,1,212,232,189
205 DATA 115,192,141,0,212,232
210 DATA 189,115,192,141,114,192
215 DATA 232,142,113,192,32,64
220 DATA 192,169,17,141,4,212
225 DATA 174,113,192,224,96,208
230 DATA 217,76,92,192,160,0
235 DATA 162,0,232,224,255,208
240 DATA 251,200,192,120,208,244
245 DATA 206,114,192,173,114,192
250 DATA 208,234,169,16,141,4
255 DATA 212,96,169,0,141,4
260 DATA 212,141,5,212,141,6
265 DATA 212,141,0,212,141,1
270 DATA 212,141,24,212,96,0
275 DATA 0,51,97,2,34,75
280 DATA 1,38,126,1,39,223
285 DATA 1,45,198,1,51,97
290 DATA 2,34,75,2,34,75
295 DATA 2,53,57,2,45,198
300 DATA 1,51,97,1,53,57
305 DATA 1,59,190,1,68,149
310 DATA 2,34,75,2,34,75
315 DATA 2,45,198,2,51,97
320 DATA 1,45,198,1,39,223
325 DATA 1,38,126,1,39,223
330 DATA 2,45,198,1,39,223
335 DATA 1,38,126,1,34,75
340 DATA 1,38,126,2,39,223
345 DATA 1,38,126,1,34,75
350 DATA 1,31,255,1,34,75,4
60000 PRINT"[147][215]OULD YOU LIKE TO HEAR IT AGAIN?"
60020 POKE198,0:WAIT198,1:GETR$
60030 IFR$<>"Y"ANDR$<>"N"THEN60000
60040 IFR$="Y"THEN100
60050 :
63000 REM   CONNECT BACK TO BACH BOOT
63010 PRINT"[147]LOAD"CHR$(34)"BACH BOOT"CHR$(34)",8":PRINT"RUN"
63020 POKE631,13:POKE632,13:POKE198,2:        END